home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / glisp.zoo / FACT1.GL next >
Encoding:
Text File  |  1990-05-30  |  166 b   |  8 lines
  1. "Factoriel iteratif"
  2. (de iter (n f)
  3.   (if (zerop n) f
  4.      (iter (- n 1) (* n f))))
  5. (de fact (n) (iter n 1))
  6. "(repeat 1000 (fact 13))"
  7. (repeat 1000 (fact 13))
  8.